home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 April
/
EnigmA AMIGA RUN 17 (1997)(G.R. Edizioni)(IT)[!][issue 1997-04][EAR-CD].iso
/
EARCD
/
comm
/
thor
/
thor24arexx.lha
/
GoldED
/
ASCIIPic.ged
next >
Wrap
Text File
|
1996-11-11
|
1KB
|
41 lines
/* ASCIIPic.ged by Troels Walsted Hansen
** $VER: ASCIIPic.ged v1.00 (09.06.95)
**
** Convert picture to ASCII and include it in GoldED. Uses
** 'ilbm2ascii' v1.4 by Tobias Ferber.
*/
options results
/* needs GoldED functions */
if(substr(address(),1,6) ~= "GOLDED") then
do
say "This script should only be started from inside GoldED."
exit 20
end
else gedport = address()
/* request a filename, convert to ascii and include in GoldED */
address(gedport)
REQUEST TITLE '"Select ILBM to convert and include:"' FILE PATH '"HD3:Bilder/"' MASK '"#?"' VAR picfile
if(rc ~= 0) then exit
lastchar = right(picfile,1)
if(rc ~= 0 | lastchar = "/" | lastchar = ":" | picfile = "") then exit
address command "run >nil: ilbm2ascii "||'"'picfile'"'||" >t:FSEASCIIPicture"
/* a silly hack to avoid ilbm2ascii outputting "done." to GED's output window */
do 500
address command "wait 3"
if(exists(picfile)) then break
end
OPEN NAME '"t:FSEASCIIPicture"' FAST INSERT
address command "delete >nil: t:FSEASCIIPicture"
exit